home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / mess / MESS 0.133 / Macintosh / MessMenu 0.7.0 OSX uni.dmg / MessMenu.app / Contents / MacOS / getenv.tcl < prev    next >
Encoding:
Text File  |  2008-05-13  |  504 b   |  13 lines
  1. #-----------------------------------------------------------------------
  2. #  assigns value to a TCL variable, defaults to specified value
  3. #  call: getenv name default
  4. #-----------------------------------------------------------------------
  5. proc getenv { Name Default} {
  6.   global env
  7.   if { [lsearch [array names env] $Name ] != -1 } { set x $env($Name) 
  8.   } else                                          { set x $Default    }
  9.  
  10. #  puts "<<<getenv>>> : Name= $Name  Default= $Default  x=  $x"
  11.   return $x
  12. }
  13.